00100		EXTERNAL PROCEDURE LRMAK (INTEGER LO,HI,ONE);
00200		EXTERNAL INTEGER   ARYEL;
00250	
00300		DEFINE GETARY(ARRY,SIZE) =
00400		"BEGIN	LRMAK(1,SIZE,1); QUICK_CODE MOVEM 1,ARRY;END;END";
00500	
00600		DEFINE RELARY(ARRY) =
00700		"QUICK_CODE PUSH 15,ARRY;PUSHJ 15,ARYEL;END";